; 3.10 sets
(setf lst1 '(a b c)
			lst2 '((a) (b) (c))
			lst3 '((a b) (b c))
			lst4 '( 2 3 4))

;member
(format t "~A is a member of ~A : ~A~%" 'b lst1 (member 'b lst1))

;member with :test #'equal
(format t "member with equal")
(format t "~A is a member of ~A : ~A~%" 
				'(a) lst2 (member '(a) lst2 :test #'equal))

;member with :key #'car
(format t "~A is a member of ~A : ~A~%"
				'b lst3 (member 'b lst3 :key #'car))

;member-if by oddp
(format t "~A has a odd number : ~A~%"
				lst4 (member-if #'oddp lst4))
